#!/usr/bin/perl

# 定义一个字符串
my $str = "Hello,World,Monday!";

# 使用split函数分割字符串
my @arr = split(/,/, $str);

# 打印分割后的数组
print "@arr\n";  # 输出：Hello World Monday!

# 使用join函数连接数组
my $new_str = join("*", @arr);

# 打印连接后的字符串
print "$new_str\n";  # 输出：Hello*World*Monday!